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PASSSVM Allocate/deallocate virtual memory 16-Sep-1984 06:13:68 VAX-11 s-32 V4.0-742 1 
14-Sep-1984 :52:0 DISK SKS$V nen TER: CPASRTL.SRCIJPASVM. B32, had (1) | 


; 1 001 MODULE PASSSVM ( ZTITLE ‘Allocate/deallocate virtual nenery 
; ¢ Oe Pp ENT = °1-001' ! File: PASVM.B32 Edit: SBL1001 | 
° ” | 
; ¢ Ope : BEGIN 
: § 006 1 LEAR RAAAA AERA E RARER EEE ERATE AAA } 
; 0007 1 !* | 
H 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B ' 

; 3 0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
H + poi : 7 ALL RIGHTS RESERVED. * 
3 i® * | 
H ig Bet¢ 1 !* THIS hes # fe FURNISHED UNDER A LICENSE AND MAY BE USED AND coptee * 

ries 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | 
3; 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3; % 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0016 1 !* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: i SEA : - TRANSFERRED. * 

3 '* * 

; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 B05; ! ? CORPORATION. * 

; Mad % 

ae 0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; «@ 0025 1 !* * 

; « 0026 1 !* * 
: e7 0027 1 lake eee eee eee 
; 28 0028 1! 

; $9 0029 1 | 
3 0 0030 1 !++ 
. 0031 1 =! FACILITY: Pascal Language Support 
: C032 1! 
.: 0035 1 ! ABSTRACT: 
; 34 0034 1! 
we 0035 1! This module contains procedures to allocate and deallocate 
; = 0036 1! virtual memory. | 
.) a 0037 1! 
: $ B08 ! : ENVIRONMENT: User mode - AST reentrant 
3 re pee : AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
3. 662 0042 1 ! MODIFIED BY: 

: 43 00+ 1! 

: «(44 0044 1 ! 1-001 = Original. SBL 1-April-1981 

3 65 0045 1 !-- 

: 46 0046 1 


10 
PASSSVM Allocate/deallocate virtual memory 18-Sep-19 4 06: 13%6 VAX-11 Bliss-32 V4.0-742 
1-001 :52: DISKSVM ER: CPASRTL.S 


Page 2. 
beclarat tons 10-Sep-1984 19:52:06 SMASTERZCPASRIL. A 


RCJPASVM.B32 (2) 


s 8 oh 1 ZSBTTL ‘Declarations’ 

; 649 rt 1! 
; 0 04 1 ! PROLOGUE DEFINITIONS: 

; 1 29 ! ! 

3 35 036 : REQUIRE "RTLIN:PASPROLOG'; ! Linkages, externals, PSECTs, structures 

§ ee 113 1! 
; 2 118 1 ! TABLE OF CONTENTS: 
a 119 1/3 | 
; 120 1 
; 59 8 1 1 FORWARD ROUTINE ‘ 
; 60 1 § 1 PASSSGET_VM: CALL_VM ! Allocate virtual memory 

: 61 123 1 PASSSFREE_VM: NOVALUE; i Deallocate virtual memory | 
: 2 0195 1! | 
$ 64 0126 1 ! MACROS: 
3; 65 0127 1! | 
3 66 0128 1! NONE 
3 of o1¢9 1 | | 
: 68 0130 1 ! EQUATED SYMBOLS: | 
: @669 0131 1! | 
5 70 O13 7% NONE | 
+ oe 0135 1! 

$ 72 0134 1°! FIELDS: 

ae 0135 1! 

3 74 0136 1! NONE 

So oe 0137 1! 

3 76 0138 1 =! OWN STORAGE: 

$ 77 0139 1! 

3 78 0140 1! NONE 


ROUTINE VALUE: 
A pointer to the allocated block. 
SIDE EFFECTS: 
Allocates virtual memory. 
SIGNALLED ERRORS: 
INSVIRMEM = Insufficient virtual memory 


M10 | 
PASSSVM Llocate/deallocate virtual memor 16-Sep-1984 02:13:4 VAX-11 Bliss-32 V4.0-742 Page 3 
tit ASSSGET_VM = Allocate virtual memory 1o-380-1986 13:53:00 DISKSVMSMASTERSCPASATL “GRCIPASVM.B32~4°° (33 
0 141 1 XSBTTL 'PASSSGET_VM = Allocate virtual memory’ 
1 138 GLOBAL ROUTINE passseeT VM ( 
¢ 14 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 
144 GTH ! Length to allocate 
8% 145 >: CALL_VM = | 
é 29 | tes 
Mi rh } FUNCTIONAL DESCRIPTION: 
89 0 i This procedure allocates a block of virtual memory and returns 
90 1 ' a pointer to the block as its function value. The memory allocated 
¢ is zero-filled. | 
9 24 ; CALLING SEQUENCE: 
2 block _addr.wa.v = PASSSGET_VM (PFV.rr.r, LENGTH. rl.v) | 
58 | FORMAL PARAMETERS: 
60 1! PFV - The Pascal File Variable (PFV) passed by reference. | 
re The structure of the PFV is defined in PASPFV.REQ. | 
m i LENGTH - The oom in bytes of the block to allocate. 
yf } Must not be greater than 65535. 
66 i IMPLICIT INPUTS: 
NONE | 
i IMPLICIT OUTPUTS: 
; NONE | 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


BEGIN 


LOCAL 
BLOCK_ADDR; ! Address of allocated block 


IF LENGTH GIRU 65535 | 
SPASSBUGCHECK (BUG_BADVMSIZE); 
IF NOT LIBSGET_VM (LENGTH, BLOCK_ADDR) 


WAIN AIIRIPININININININIDS 2 2 OOOO HM OOOO COOO ooouono 


SOOOSOCOCOSOCOSOOSOSCOOSOSSOSOOSOSOSSOSSOSOOCOSOOCSCSOCOOOSOOOOOCCOOOOOOOCCOOOOOOO O(U> 


Dee ee ee ee ee ee ee ee ee ee 


COOOO OO OCOWDWOWWWOWOOOONIN NNN NNN NO 


Re Pe Be Be Be Fe Se Se Se Se Se Se Ge Se He Se Se Se Se SH Se Se Fe Se FH Se Se Se eae Fe Se Se Se See Se Se Se Se Se ae Se Se Se Se Seas ee Se Se Sete Se Sete ae 


ROPOROPOPONOROPONIRYD — et a st at tt a 


Ba Se Se Be Be Be Be Be Be Se Ge Be Se Se Be Ge Se Se Ge Se Ge Ge Se Se Ge Ge Se Se Ge Se Se Se Se Ge Be Se Se SH Se SH Se BH Se Se Se Se Se Se Se Be Se Se ee Se Se Se ee 


ee a ed ed ed od 8 wd = wd ed 


CES RB SSS SR ES Sao —oSee 
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Allocate/d Sool lorete virtual memor 16-Sep-1984 02:13:4 VAX-11 Bliss-32 V4.0-7 P 4. 
ASSSCET GET. Allocate virtual memory 14- : 1382 95:13:46 DISKSVMSMASTER: CPASRTL. «SAC IPASVE. B32; + ge (3) | 


| 


: 137 198 THEN 

; 19 "SPAssiO. ERROR (PAS$_INSVIRMEM,0); 

; 146 a CHSFILL (0, .LENGTH, .BLOCK_ADDR); ! Zero-fill 

: 148 3 RETURN .BLOCK_ADDR; 

> 144 5 END; ! End of routine PASSSGET_VM | 
-TITLE PASSSVM Allocate/deallocate virtual memory | 
“IDENT \1=001\ 
.EXTRN PASSSGET_VM, PASSSFREE VM 
TEXTRN PASS$S$BUGCHECK, LIBSGET~V 


“EXTRN PASSSSIGNAL, PASSK_ PNSOIRMEM 
.PSECT _PASSCODE,NOWRT, SHR, PIC,2 | 


003¢ 00000 ENTRY PASSSGET_VM, Save R2,R3,R4,R5 5 0142 
SE 04 C2 0000 SUBL2 , SP : | 
QOOOFFFF  &F 04 AC D1 0000 CMPL LENGTH, #65535 : 0193 
0B 18 00000 BLEGU 1$ 3 
04 DD 0000F PUSHL #4 : 0195 
000000006 00 01 FB 00011 CALLS #1, PASSSBUGCHECK ; | 
2A 11 00018 BKB 3$ : | 
SE DD OOOIA 1$ PUSHL : 0197. 
06 AC 9F O00IC PUSHAB LENGTH ; | 
000000006 00 02 FB OOO1F CALLS #2, LIBSGET_VM : | 
OF 50 EB 00026 BLBS RO. 2s : | 
7E D4 00029 im | ot : 0199 | 
7E 00G 8F 9A 00028 MOVZBL apAssK sei -(SP) : 
000000006 00 02 FB O002F CALLS #2, PAS$SSI : 
OC 11 000%6 BRB : 
04 ac 00 6€ 00 20 26 20038 2s: MOVCS #0, (SP), #0, LENGTH, @BLOCK_ADDR : 0201 
50 6E D0 0004 MOVL  BLOCK_ADDR, RO : 0203 | 
04 00043 ET 3 
50 D4 00044 3 CLRL = RO : 0205 
00046 r 


; Routine Size: 71 bytes, Routine Base: _PASS$CODE + 0000 


9206 1 
0207 1 !<BLF/PAGE> 
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PASsevA Allocate/deallocate virtual memory 18-Sep-19 4 98:13:48 VAX=11 Bliss-32 V4,0-742 Page 5 
1-001 PASSSFREE_VM = Deallocate virtual memory 14-Sep-1984 12:52:0 DISKSVMSMASTER: CPASRTL.SRCIJPASVM.B32; 1 (4) 
; 148 08 1 XSBITL 'PASSSFREE_VM = Deallocate virtual memory' 
> (149 09 1 GLOBAL ROUTINE PASSSFREE_VM ( 
3 129 10 1 L ! Length to allocate 
3 V1 0211 1 BLOCK_ADDR: REF VECTOR C, LONG) ! Address of block to deallocate 
.= 9 ¢ 0 \¢ 1 ): NOVALUE = 
eS 0215 1 
s 356 0214 1 !44 
3 123 8 F ! : FUNCTIONAL DESCRIPTION: 
; 4 bsit : This procedure deallocates a block of virtual memory. 
3: 159 0219 1 ! CALLING SEQUENCE: 
: 160 0 sy 1! 
: 161 0221 1! CALL PASSSFREE_VM (LENGTH.rl.v, BLOCK_ADDR.ma.r) 
: 166 Oss¢ 1! 
; 0 1 ! FORMAL PARAMETERS: 
> 164 0224 1! 
; 19? 8552 : LENGTH - The length in bytes of the block to deallocate. | 
: or Q227 1! BLOCK_ADDR - The address of the block to deallocate 
; «168 0228 1! 
3; 169 i544 1 ! IMPLICIT INPUTS: 
: 170 0230 1! 
ore 0231 1! NONE 
; 7e 0232 1! 
; 75 0233 1°! IMPLICIT OUTPUTS: 
3 (174 0234 1! 
: 175 0235 1! NONE 
: 176 0236 1! 
: 177 0237 1 ! ROUTINE VALUE: | 
: «#178 0238 1! 
3; 179 0239 1! NONE 
: 180 0240 1! 
s 181 0241 1 ! SIDE EFFECTS: 
3; 182 Oeeg 1! ; 
3; «(183 02435 1! Deallocates virtual memory. 
> «184 0244 1! | 
: «185 0245 1 ! SIGNALLED ERRORS: 
> «4186 0246 1! 
: 187 0247 1! BUGCHECK 
: «4188 0248 1! | 
: «189 0249 1 !-- 
: 190 0250 1 
3; «6191 b$23 BEGIN 
; 196 0 26 
H i 8$2z IF NOT LIBSFREE_VM (LENGTH, BLOCK_ADDR (0)) 
$ + 44 O$22 SPASSBUGCHECK (BUG_FREEVMFAIL); 
: 197 0589 BLOCK_ADDR (0) = 0; ! Invalidate pointer 
: 198 0258 
Bo bet 
; 201 0261 1 END; ! End of routine PASSS$FREE_VM 


PASSSVM 


ALL Llocate virtual -1984 14 AX-11 Bliss-32 V4.0-74 
Asst AL log allocate virtual memory 16-5 Sep-19 ; 98: 13:46 V 8 2.V4.0-742 


. 6 
.VM = Deallocate virtual memory -Sep-1984 DISKSVMSMASTER: CPASRTL.SRCJPASVM. 832: , (4) 
-EXTRN LIBSFREE_VM 


'—® 


0000 0000 ENTRY PASSSFREE_VM, Save nothing : 0308 | 

4 AC DD $? SHL LOCK_ADDR ; 0253 
4 AC OF 0 PUSHAB * mg ; 
00000000G 00 9 F 000 CALLS #2, addin ete ; 
OA E8 QOOOF LBS RO, : 

02 DD 00012 PUSHL # ; 0255 
000000006 00 01 FB 00014 CALLS #1, PAS$S$BUGCHECK 3 
04 00018 RET : 

08 BC 04 OOOIC 1$: CLRL @BLOCK_ADDR ; 0257. 

04 OOOTF RET : 0261 


026 


| 

| 

; Routine Size: 32 bytes, Routine Base: _PASS$CODE + 0047 | 
| 

1 | 

0263 1 !<BLF/PAGE> 
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r 


at tl Al locate/dea 
1-001 PASSSFREE_VM 
05 0264 1 END 
06 0265 1 
07 0266 O€E 


Name 
PASSCODE 


File 


~$255$DUA28: CSYSLIBISTARLET. 
~$255$DUA28 : CPASRTL.OBJJPASL 


ocate virtual memory 
Deallocate virtual memory 


PSECT SUMMARY 
Bytes 
103 NOVEC,NOWRT, 


Library Statistics 


~ erent Symbols 
Total Loaded 


it 1 9776 


~L32;1 427 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:PASVM/OBJ=OBJ$:PASVM MSRC$:PASVM/UPDATE=(ENH$:PASVM) 


; Size: 103 code ; 0 data bytes 


; Run Time: 


; Elapsed Time: 00:16.9 


; Lines/CPU Min: 


3668 
: See A ate 7586 
: ry Used: 47 pages 
. a ation Complete 


p=19B4 13:52:00 DLSKSVMSMASTERSCPASRT 


! End of module PAS$$VM 


LCL, REL, CON, PIC,ALIGN(2) 


Pages Processing 
Mapped Time 
581 00:01.0 
33 00:00.4 


« SRCJPASVM. B32; we 


AH-BT13A-SE 


DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 ___CONFID 


ENTIAL AND PROPRIETARY 
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